object LogForm: TLogForm Left = 280 Top = 116 Width = 550 Height = 540 BorderIcons = [biSystemMenu, biMinimize] Caption = 'Stella 2000 Observation Log' Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop PopupMenu = PopupMenu1 Scaled = False ShowHint = True OnClose = FormClose OnCreate = FormCreate OnResize = FormResize OnShow = FormShow PixelsPerInch = 125 TextHeight = 16 object BackPanel: TPanel Left = 9 Top = 264 Width = 526 Height = 193 Caption = 'Remarks:' Color = 4194304 Font.Color = clAqua Font.Height = -16 Font.Name = 'Times New Roman' Font.Style = [fsBold] ParentFont = False TabOrder = 0 object Memo1: TRichEdit Left = 16 Top = 8 Width = 496 Height = 177 Hint = 'This month'#39's permanent log record' BorderStyle = bsNone Font.Color = clAqua Font.Height = -14 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = True ParentFont = False PlainText = True ScrollBars = ssVertical TabOrder = 0 end end object ButtonPanel1: TPanel Left = 9 Top = 464 Width = 526 Height = 40 TabOrder = 1 object CloseButton: TButton Left = 440 Top = 8 Width = 75 Height = 25 Caption = 'Close' TabOrder = 0 OnClick = CloseButtonClick end object StatusNotes: TPanel Left = 8 Top = 6 Width = 185 Height = 29 BevelOuter = bvLowered Caption = 'StatusNotes' Font.Color = clGray Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 end object NewButton: TButton Left = 200 Top = 8 Width = 75 Height = 25 Hint = 'Start a fresh observation' Caption = 'New Entry' TabOrder = 2 OnClick = NewButtonClick end object AddButton: TButton Left = 280 Top = 8 Width = 75 Height = 25 Hint = 'Record current observation' Caption = 'Add Entry' TabOrder = 3 OnClick = AddButtonClick end object ViewButton: TButton Left = 360 Top = 8 Width = 75 Height = 25 Hint = 'Review/edit past logs' Caption = 'View Logs' TabOrder = 4 OnClick = ViewButtonClick end end object IndexPanel: TPanel Left = 11 Top = 215 Width = 523 Height = 44 Caption = 'IndexPanel' TabOrder = 2 object ContentsBox: TComboBox Left = 120 Top = 8 Width = 395 Height = 24 Hint = 'Enter word(s) to search for' Color = 4194304 Font.Color = clAqua Font.Height = -14 Font.Name = 'Arial' Font.Style = [fsBold] ItemHeight = 16 ParentFont = False Sorted = True TabOrder = 0 end object FindButton: TButton Left = 16 Top = 8 Width = 75 Height = 25 Hint = 'Click to search for word(s)' Caption = 'Find +' TabOrder = 1 OnClick = FindButtonClick end end object ScrollBox1: TScrollBox Left = 7 Top = 12 Width = 528 Height = 89 VertScrollBar.Increment = 14 VertScrollBar.Range = 300 AutoScroll = False TabOrder = 3 object TPanel Left = 0 Top = 0 Width = 503 Height = 300 Align = alClient BevelOuter = bvLowered TabOrder = 0 object TimeBox: TEdit Left = 72 Top = 8 Width = 59 Height = 24 Color = 4194304 Font.Color = clAqua Font.Height = -14 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 0 end object TimeLabel: TPanel Left = 8 Top = 8 Width = 58 Height = 26 BevelOuter = bvLowered Caption = 'Time:' TabOrder = 5 end object DateLabel: TPanel Left = 136 Top = 8 Width = 58 Height = 26 BevelOuter = bvLowered Caption = 'Date:' TabOrder = 6 end object PlaceLabel: TPanel Left = 296 Top = 8 Width = 58 Height = 26 BevelOuter = bvLowered Caption = 'Place:' TabOrder = 7 end object CndxLabel: TPanel Left = 232 Top = 48 Width = 58 Height = 26 BevelOuter = bvLowered Caption = 'Cndx:' TabOrder = 8 end object InstrumentLabel: TPanel Left = 8 Top = 48 Width = 58 Height = 26 BevelOuter = bvLowered Caption = 'Instr.' TabOrder = 9 end object InstrumentBox: TComboBox Left = 72 Top = 48 Width = 152 Height = 24 Hint = 'Observed with...' Color = 4194304 Font.Color = clAqua Font.Height = -14 Font.Name = 'Arial' Font.Style = [fsBold] ItemHeight = 16 Items.Strings = ( 'Naked eye' 'Opera glass' 'Binoculars' 'Binoculars 7x50' 'Binoculars 8x30' 'Binoculars 8x40' 'Binoculars 9x63' 'Binoculars 10x50' 'Binoculars 20x50' 'Binoculars 20x60' 'Binoculars 20x70' 'Telescope' 'Reflector' '4.5" Reflector' '6" Reflector' '8" Reflector' '10" Reflector' '12" Reflector' '16" Reflector' 'Refractor' '2" Refractor' '3" Refractor' '4" Refractor' '6" Refractor' 'Newtonian' '4.5" Newtonian' '6" Newtonian' '8" Newtonian' '10" Newtonian' '12" Newtonian' '16" Newtonian' 'Dobsonian' '8" Dobsonian' '10" Dobsonian' '12" Dobsonian' '16" Dobsonian' '20" Dobsonian' 'Cassegrain' '4.5" Cassegrain' '5" Cassegrain' '6" Cassegrain' '7" Cassegrain' '8" Cassegrain' '10" Cassegrain' '16" Cassegrain') ParentFont = False TabOrder = 3 end object DateBox: TComboBox Left = 199 Top = 7 Width = 92 Height = 24 Color = 4194304 Font.Color = clAqua Font.Height = -14 Font.Name = 'Arial' Font.Style = [fsBold] ItemHeight = 16 Items.Strings = ( 'Naked eye' 'Binoculars 1' 'Binoculars 2' 'Telescope 1' 'Telescope 2' 'Telescope 3') ParentFont = False TabOrder = 1 end object CndxBox: TComboBox Left = 296 Top = 48 Width = 207 Height = 24 Hint = 'Observing conditions' Color = 4194304 Font.Color = clAqua Font.Height = -14 Font.Name = 'Arial' Font.Style = [fsBold] ItemHeight = 16 Items.Strings = ( 'Exceptional' 'Good' 'Average' 'Poor' 'Slight haze' 'Haze' 'Some cloud' 'Urban glow' 'Weak moonlight' 'Moonlight' 'Strong moonlight' 'Faint twilight' 'Twilight' 'Astronomical twilight' 'Nautical twilight' 'Civil twilight' 'Pre-sunrise' 'Post-sunset' 'Sunrise' 'Sunset' 'Daylight') ParentFont = False TabOrder = 4 end object PlaceBox: TComboBox Left = 360 Top = 8 Width = 142 Height = 24 Color = 4194304 Font.Color = clAqua Font.Height = -14 Font.Name = 'Arial' Font.Style = [fsBold] ItemHeight = 16 Items.Strings = ( 'Naked eye' 'Binoculars' 'Binoculars 8x30' 'Binoculars 8x40' 'Binoculars 9x63' 'Binoculars 10x50' 'Binoculars 20x50' 'Binoculars 20x60' 'Binoculars 1' 'Binoculars 2' 'Telescope' '4" Reflector' '6" Reflector' '8" Reflector' '10" Reflector' '2" Refractor' '3" Refractor' 'Telescope 1' 'Telescope 2' 'Telescope 3') ParentFont = False TabOrder = 2 end object MagPanel1: TPanel Left = 8 Top = 89 Width = 99 Height = 26 BevelOuter = bvLowered Caption = 'Magnification:' TabOrder = 10 end object MagSpin: TSpinEdit Left = 113 Top = 89 Width = 64 Height = 26 Color = 4194304 Font.Color = clAqua Font.Height = -14 Font.Name = 'Arial' Font.Style = [fsBold] MaxLength = 4 MaxValue = 1000 MinValue = 1 ParentFont = False TabOrder = 11 Value = 100 end object EyepiecePanel: TPanel Left = 187 Top = 88 Width = 75 Height = 26 BevelOuter = bvLowered Caption = 'Eyepiece:' TabOrder = 12 end object EyepieceBox: TComboBox Left = 269 Top = 89 Width = 235 Height = 24 Hint = 'Observed through...' Color = 4194304 Font.Color = clAqua Font.Height = -14 Font.Name = 'Arial' Font.Style = [fsBold] ItemHeight = 16 Items.Strings = ( 'Meade Super Wide Angle 13.8mm ' 'Meade Super Wide Angle 18mm ' 'Meade Super Wide Angle 24.5mm ' 'Meade Super Wide Angle 32mm ' 'Meade Super Wide Angle 40mm ' 'Meade Super Pl�ssl 6.4mm ' 'Meade Super Pl�ssl 9.7mm ' 'Meade Super Pl�ssl 12.4mm ' 'Meade Super Pl�ssl 15mm ' 'Meade Super Pl�ssl 20mm ' 'Meade Super Pl�ssl 26mm ' 'Meade Super Pl�ssl 32mm ' 'Meade Super Pl�ssl 40mm ' 'Meade Super Pl�ssl 56mm ' 'Meade Ultra Wide Angle 4.7mm ' 'Meade Ultra Wide Angle 6.7mm ' 'Meade Ultra Wide Angle 8.8mm ' 'Meade Ultra Wide Angle 14mm ' 'Meade Pl�ssl 5mm ' 'Meade Pl�ssl 6.7mm ' 'Meade Pl�ssl 9.5mm ' 'Meade Pl�ssl 16mm ' 'Meade Pl�ssl 25mm ' 'Meade Pl�ssl 40mm ' 'Celestron Ultima 5mm ' 'Celestron Ultima 7.5mm ' 'Celestron Ultima 12.5mm ' 'Celestron Ultima 18mm ' 'Celestron Ultima 24mm ' 'Celestron Ultima 30mm ' 'Celestron Ultima 35mm ' 'Celestron Ultima 42mm ' 'Celestron Ultima 45mm ' 'Celestron Ultima 60mm ' 'Celestron Ultima 80mm ' 'Orion .965 Ortho 5mm ' 'Orion .965 Ortho 7mm ' 'Orion .965 Ortho 9mm ' 'Orion .965 Ortho 12.5mm ' 'Orion .965 Kellner 18mm ' 'Orion .965 Kellner 25mm ' 'Orion .965 Huygenian 40mm ' 'Orion Explorer 1� Kellner 6mm ' 'Orion Explorer 1� Kellner 9mm ' 'Orion Explorer 1� Kellner 12mm ' 'Orion Explorer 1� Kellner 18mm ' 'Orion Explorer 1� Kellner 25mm ' 'Orion Explorer 1� Kellner 40mm ' 'Orion Explorer 1� Ortho 5mm ' 'Orion Explorer 1� Ortho 7mm ' 'Orion Explorer 1� Ortho 9mm ' 'Orion Explorer 1� Ortho 12.5mm ' 'Orion Explorer 1� Ortho 18mm ' 'Orion Ultrascopic 3.8mm ' 'Orion Ultrascopic 5mm ' 'Orion Ultrascopic 7.5mm ' 'Orion Ultrascopic 10mm ' 'Orion Ultrascopic 15mm ' 'Orion Ultrascopic 20mm ' 'Orion Ultrascopic 25mm ' 'Orion Ultrascopic 30mm ' 'Orion Ultrascopic 35mm ' 'Orion 2" Erfle 32mm ' 'Orion 2" Pl�ssl 50mm ' 'Orion 2" MegaVista 34mm ' 'Orion 2" MegaVista 40mm ' 'Sirius Pl�ssl 7.5mm ' 'Sirius Pl�ssl 10mm ' 'Sirius Pl�ssl 13mm ' 'Sirius Pl�ssl 17mm ' 'Sirius Pl�ssl 26mm ' 'Sirius Pl�ssl 40mm ' 'TeleVue Nagler 4.8mm ' 'TeleVue Nagler 7mm ' 'TeleVue Nagler 9mm ' 'TeleVue Nagler 13mm ' 'TeleVue Nagler Type II 12mm ' 'TeleVue Nagler Type II 16mm ' 'TeleVue Nagler Type II 20mm ' 'TeleVue Panoptic 15mm ' 'TeleVue Panoptic 22mm ' 'TeleVue Panoptic 27mm ' 'TeleVue Panoptic 35mm ' 'TeleVue Widefield 15mm ' 'TeleVue Widefield 19mm ' 'TeleVue Widefield 24mm ' 'TeleVue Widefield 32mm ' 'TeleVue Widefield 40mm ' 'TeleVue Pl�ssl 7.4mm ' 'TeleVue Pl�ssl 10.5mm ' 'TeleVue Pl�ssl 13mm ' 'TeleVue Pl�ssl 17mm ' 'TeleVue Pl�ssl 21mm ' 'TeleVue Pl�ssl 26mm ' 'TeleVue Pl�ssl 32mm ' 'TeleVue Pl�ssl 40mm ' 'TeleVue Pl�ssl 55mm ' 'Vixen Lanthanum LV Series 2.5mm ' 'Vixen Lanthanum LV Series 4mm ' 'Vixen Lanthanum LV Series 5mm ' 'Vixen Lanthanum LV Series 6mm ' 'Vixen Lanthanum LV Series 9mm ' 'Vixen Lanthanum LV Series 10mm ' 'Vixen Lanthanum LV Series 15mm ' 'Vixen Lanthanum LV Series 20mm ' 'Vixen Lanthanum LV Series 25mm ' 'Vixen Lanthanum LV Series 30mm ') ParentFont = False TabOrder = 13 end end end object RemarksMemo: TMemo Left = 8 Top = 115 Width = 527 Height = 88 Hint = 'Record your observation here' Color = 4194304 Font.Color = clAqua Font.Height = -14 Font.Name = 'Arial' Font.Style = [fsBold] Lines.Strings = ( '') ParentFont = False ScrollBars = ssVertical TabOrder = 4 end object PopupMenu1: TPopupMenu Left = 18 Top = 350 object Copy1: TMenuItem Caption = 'Copy' ShortCut = 0 OnClick = Copy1Click end object Cut1: TMenuItem Caption = 'Cut' ShortCut = 0 OnClick = Cut1Click end object Paste1: TMenuItem Caption = 'Paste' ShortCut = 0 OnClick = Paste1Click end object Goto1: TMenuItem Caption = 'Goto' ShortCut = 0 object Top1: TMenuItem Caption = 'Top' ShortCut = 0 OnClick = Top1Click end object Bottom1: TMenuItem Caption = 'Bottom' ShortCut = 0 OnClick = Bottom1Click end end object N1: TMenuItem Caption = '-' ShortCut = 0 end object Save1: TMenuItem Caption = 'Save' ShortCut = 0 OnClick = Save1Click end object Autosave1: TMenuItem Caption = 'Autosave' Checked = True ShortCut = 0 OnClick = Autosave1Click end object N2: TMenuItem Caption = '-' ShortCut = 0 end object Font1: TMenuItem Caption = 'Font' ShortCut = 0 OnClick = Font1Click end object Color1: TMenuItem Caption = 'Color' ShortCut = 0 OnClick = Color1Click end object Hints1: TMenuItem Caption = 'Hints' Checked = True ShortCut = 0 OnClick = Hints1Click end object N3: TMenuItem Caption = '-' ShortCut = 0 end object Print1: TMenuItem Caption = 'Print' ShortCut = 0 object Entry1: TMenuItem Caption = '&Entry' ShortCut = 0 end object PrintEntireLog: TMenuItem Caption = 'Entire &Log' ShortCut = 0 OnClick = PrintEntireLogClick end end end object FontDialog1: TFontDialog Font.Color = clWindowText Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] MinFontSize = 0 MaxFontSize = 0 Left = 49 Top = 350 end object ColorDialog1: TColorDialog Ctl3D = True Left = 79 Top = 350 end object OpenDialog1: TOpenDialog DefaultExt = 'stl' FileEditStyle = fsEdit Filter = 'Stella 2000 Logs (*.stl)|*.stl' Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist] Title = 'Open a Stella 2000 Log' Left = 109 Top = 350 end object PrintDialog1: TPrintDialog Left = 139 Top = 349 end object IniOut1: TIniOut FileName = 'STELLA.INI' Items.Strings = ( 'LogForm;Height;;Dimensions;LogFormHeight;1;0' 'LogForm;Left;;Position;LogFormLeft;1;0' 'LogForm;Top;;Position;LogFormTop;1;0') RegistryRoot = CURRENT_USER Left = 171 Top = 349 end end